home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #11 / Commodore_Disk_User_Vol.4_11_1991_-.d64 / pop-up demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  770b  |  28 lines
  1. 1 rem pop-up demo. cmb/64....l.jack. 1986
  2. 5 c=c+1:ifc=1thenload"bpop",8,1
  3. 10 n=3:gosub500
  4. 20 poke679,0:sys49152:rem store current screen
  5. 30 l=6:w=10:c=0:b=1:sa=1238:gosub100
  6. 40 l=10:w=3:c=7:b=2:sa=1106:gosub100
  7. 50 l=4:w=18:c=11:b=3:sa=1388:gosub100
  8. 60 poke679,1:sys49152:rem recover original screen
  9. 70 end
  10. 100 rem poke in parameters & call m/c
  11. 110 poke679,l:poke680,w:poke681,c:poke682,41-w:gosub200
  12. 120 poke252,a(0):poke251,a(1):poke253,a(1):poke254,a(0)+212
  13. 130 sa=box(b):gosub200:sys49251:w=w-2
  14. 140 poke253,a(1):poke254,a(0):poke682,41-w:sys49404
  15. 150 gety$:ify$<>"c"then150
  16. 160 return
  17. 200 a(0)=int(sa/256):a(1)=sa-a(0)*256:return
  18. 500 ad=49461:fork=1ton
  19. 510 box(k)=ad
  20. 520 reada$:forj=1tolen(a$):p=asc(mid$(a$,j,1))
  21. 530 ifp=42then550
  22. 534 ifp>64thenp=p-64
  23. 540 pokead,p:ad=ad+1:nextj
  24. 550 nextk:return
  25. 560 data"here's a pop-up  tester press c *"
  26. 565 data"press c *"
  27. 570 data"o.k. now restorescreen...press c*"
  28.